/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UBrowser.u / UBrowserServerList_UBrowserOpenCW_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 7e 21 63 6c 61 73 73 20 |........|~!class |
|00000010| 55 42 72 6f 77 73 65 72 | 4f 70 65 6e 43 57 20 65 |UBrowser|OpenCW e|
|00000020| 78 70 61 6e 64 73 20 55 | 57 69 6e 64 6f 77 44 69 |xpands U|WindowDi|
|00000030| 61 6c 6f 67 43 6c 69 65 | 6e 74 57 69 6e 64 6f 77 |alogClie|ntWindow|
|00000040| 3b 0d 0a 0d 0a 76 61 72 | 20 55 57 69 6e 64 6f 77 |;....var| UWindow|
|00000050| 43 6f 6d 62 6f 43 6f 6e | 74 72 6f 6c 20 4f 70 65 |ComboCon|trol Ope|
|00000060| 6e 43 6f 6d 62 6f 3b 0d | 0a 76 61 72 20 6c 6f 63 |nCombo;.|.var loc|
|00000070| 61 6c 69 7a 65 64 20 73 | 74 72 69 6e 67 09 4f 70 |alized s|tring.Op|
|00000080| 65 6e 54 65 78 74 3b 0d | 0a 76 61 72 20 6c 6f 63 |enText;.|.var loc|
|00000090| 61 6c 69 7a 65 64 20 73 | 74 72 69 6e 67 09 4f 70 |alized s|tring.Op|
|000000a0| 65 6e 48 65 6c 70 3b 0d | 0a 0d 0a 76 61 72 20 63 |enHelp;.|...var c|
|000000b0| 6f 6e 66 69 67 20 73 74 | 72 69 6e 67 09 09 4f 70 |onfig st|ring..Op|
|000000c0| 65 6e 48 69 73 74 6f 72 | 79 5b 31 30 5d 3b 0d 0a |enHistor|y[10];..|
|000000d0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 43 72 65 61 74 |..functi|on Creat|
|000000e0| 65 64 28 29 0d 0a 7b 0d | 0a 09 6c 6f 63 61 6c 20 |ed()..{.|..local |
|000000f0| 66 6c 6f 61 74 20 45 64 | 69 74 57 69 64 74 68 3b |float Ed|itWidth;|
|00000100| 0d 0a 09 6c 6f 63 61 6c | 20 69 6e 74 20 69 3b 0d |...local| int i;.|
|00000110| 0a 0d 0a 09 53 75 70 65 | 72 2e 43 72 65 61 74 65 |....Supe|r.Create|
|00000120| 64 28 29 3b 0d 0a 0d 0a | 09 45 64 69 74 57 69 64 |d();....|.EditWid|
|00000130| 74 68 20 3d 20 57 69 6e | 57 69 64 74 68 20 2d 20 |th = Win|Width - |
|00000140| 31 34 30 3b 0d 0a 09 4f | 70 65 6e 43 6f 6d 62 6f |140;...O|penCombo|
|00000150| 20 3d 20 55 57 69 6e 64 | 6f 77 43 6f 6d 62 6f 43 | = UWind|owComboC|
|00000160| 6f 6e 74 72 6f 6c 28 43 | 72 65 61 74 65 43 6f 6e |ontrol(C|reateCon|
|00000170| 74 72 6f 6c 28 63 6c 61 | 73 73 27 55 57 69 6e 64 |trol(cla|ss'UWind|
|00000180| 6f 77 43 6f 6d 62 6f 43 | 6f 6e 74 72 6f 6c 27 2c |owComboC|ontrol',|
|00000190| 20 32 30 2c 20 32 30 2c | 20 45 64 69 74 57 69 64 | 20, 20,| EditWid|
|000001a0| 74 68 2c 20 31 29 29 3b | 0d 0a 09 4f 70 65 6e 43 |th, 1));|...OpenC|
|000001b0| 6f 6d 62 6f 2e 53 65 74 | 54 65 78 74 28 4f 70 65 |ombo.Set|Text(Ope|
|000001c0| 6e 54 65 78 74 29 3b 0d | 0a 09 4f 70 65 6e 43 6f |nText);.|..OpenCo|
|000001d0| 6d 62 6f 2e 53 65 74 48 | 65 6c 70 54 65 78 74 28 |mbo.SetH|elpText(|
|000001e0| 4f 70 65 6e 48 65 6c 70 | 29 3b 0d 0a 09 4f 70 65 |OpenHelp|);...Ope|
|000001f0| 6e 43 6f 6d 62 6f 2e 53 | 65 74 46 6f 6e 74 28 46 |nCombo.S|etFont(F|
|00000200| 5f 4e 6f 72 6d 61 6c 29 | 3b 0d 0a 09 4f 70 65 6e |_Normal)|;...Open|
|00000210| 43 6f 6d 62 6f 2e 53 65 | 74 45 64 69 74 61 62 6c |Combo.Se|tEditabl|
|00000220| 65 28 54 72 75 65 29 3b | 0d 0a 09 66 6f 72 20 28 |e(True);|...for (|
|00000230| 69 3d 30 3b 20 69 3c 31 | 30 3b 20 69 2b 2b 29 0d |i=0; i<1|0; i++).|
|00000240| 0a 09 09 69 66 20 28 4f | 70 65 6e 48 69 73 74 6f |...if (O|penHisto|
|00000250| 72 79 5b 69 5d 20 21 3d | 20 22 22 29 0d 0a 09 09 |ry[i] !=| "")....|
|00000260| 09 4f 70 65 6e 43 6f 6d | 62 6f 2e 41 64 64 49 74 |.OpenCom|bo.AddIt|
|00000270| 65 6d 28 4f 70 65 6e 48 | 69 73 74 6f 72 79 5b 69 |em(OpenH|istory[i|
|00000280| 5d 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |]);..}..|..functi|
|00000290| 6f 6e 20 42 65 66 6f 72 | 65 50 61 69 6e 74 28 43 |on Befor|ePaint(C|
|000002a0| 61 6e 76 61 73 20 43 2c | 20 66 6c 6f 61 74 20 58 |anvas C,| float X|
|000002b0| 2c 20 66 6c 6f 61 74 20 | 59 29 0d 0a 7b 0d 0a 09 |, float |Y)..{...|
|000002c0| 6c 6f 63 61 6c 20 66 6c | 6f 61 74 20 45 64 69 74 |local fl|oat Edit|
|000002d0| 57 69 64 74 68 3b 0d 0a | 09 6c 6f 63 61 6c 20 66 |Width;..|.local f|
|000002e0| 6c 6f 61 74 20 58 4c 2c | 20 59 4c 3b 0d 0a 0d 0a |loat XL,| YL;....|
|000002f0| 09 43 2e 46 6f 6e 74 20 | 3d 20 52 6f 6f 74 2e 46 |.C.Font |= Root.F|
|00000300| 6f 6e 74 73 5b 4f 70 65 | 6e 43 6f 6d 62 6f 2e 46 |onts[Ope|nCombo.F|
|00000310| 6f 6e 74 5d 3b 0d 0a 09 | 54 65 78 74 53 69 7a 65 |ont];...|TextSize|
|00000320| 28 43 2c 20 4f 70 65 6e | 43 6f 6d 62 6f 2e 54 65 |(C, Open|Combo.Te|
|00000330| 78 74 2c 20 58 4c 2c 20 | 59 4c 29 3b 0d 0a 0d 0a |xt, XL, |YL);....|
|00000340| 09 45 64 69 74 57 69 64 | 74 68 20 3d 20 57 69 6e |.EditWid|th = Win|
|00000350| 57 69 64 74 68 20 2d 20 | 35 30 3b 0d 0a 0d 0a 09 |Width - |50;.....|
|00000360| 4f 70 65 6e 43 6f 6d 62 | 6f 2e 57 69 6e 4c 65 66 |OpenComb|o.WinLef|
|00000370| 74 20 3d 20 28 57 69 6e | 57 69 64 74 68 20 2d 20 |t = (Win|Width - |
|00000380| 45 64 69 74 57 69 64 74 | 68 29 20 2f 20 32 3b 0d |EditWidt|h) / 2;.|
|00000390| 0a 09 4f 70 65 6e 43 6f | 6d 62 6f 2e 57 69 6e 54 |..OpenCo|mbo.WinT|
|000003a0| 6f 70 20 3d 20 28 57 69 | 6e 48 65 69 67 68 74 2d |op = (Wi|nHeight-|
|000003b0| 4f 70 65 6e 43 6f 6d 62 | 6f 2e 57 69 6e 48 65 69 |OpenComb|o.WinHei|
|000003c0| 67 68 74 29 20 2f 20 32 | 3b 0d 0a 09 4f 70 65 6e |ght) / 2|;...Open|
|000003d0| 43 6f 6d 62 6f 2e 53 65 | 74 53 69 7a 65 28 45 64 |Combo.Se|tSize(Ed|
|000003e0| 69 74 57 69 64 74 68 2c | 20 4f 70 65 6e 43 6f 6d |itWidth,| OpenCom|
|000003f0| 62 6f 2e 57 69 6e 48 65 | 69 67 68 74 29 3b 0d 0a |bo.WinHe|ight);..|
|00000400| 09 4f 70 65 6e 43 6f 6d | 62 6f 2e 45 64 69 74 42 |.OpenCom|bo.EditB|
|00000410| 6f 78 57 69 64 74 68 20 | 3d 20 4f 70 65 6e 43 6f |oxWidth |= OpenCo|
|00000420| 6d 62 6f 2e 57 69 6e 57 | 69 64 74 68 20 2d 20 58 |mbo.WinW|idth - X|
|00000430| 4c 20 2d 20 32 30 3b 0d | 0a 0d 0a 09 53 75 70 65 |L - 20;.|....Supe|
|00000440| 72 2e 42 65 66 6f 72 65 | 50 61 69 6e 74 28 43 2c |r.Before|Paint(C,|
|00000450| 20 58 2c 20 59 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 | X, Y);.|.}....fu|
|00000460| 6e 63 74 69 6f 6e 20 4e | 6f 74 69 66 79 28 55 57 |nction N|otify(UW|
|00000470| 69 6e 64 6f 77 44 69 61 | 6c 6f 67 43 6f 6e 74 72 |indowDia|logContr|
|00000480| 6f 6c 20 43 2c 20 62 79 | 74 65 20 45 29 0d 0a 7b |ol C, by|te E)..{|
|00000490| 0d 0a 09 53 75 70 65 72 | 2e 4e 6f 74 69 66 79 28 |...Super|.Notify(|
|000004a0| 43 2c 20 45 29 3b 0d 0a | 0d 0a 09 69 66 28 28 43 |C, E);..|...if((C|
|000004b0| 20 3d 3d 20 4f 70 65 6e | 43 6f 6d 62 6f 20 26 26 | == Open|Combo &&|
|000004c0| 20 45 20 3d 3d 20 44 45 | 5f 45 6e 74 65 72 50 72 | E == DE|_EnterPr|
|000004d0| 65 73 73 65 64 29 20 7c | 7c 0d 0a 09 20 20 20 28 |essed) |||...   (|
|000004e0| 43 20 3d 3d 20 55 42 72 | 6f 77 73 65 72 4f 70 65 |C == UBr|owserOpe|
|000004f0| 6e 57 69 6e 64 6f 77 28 | 50 61 72 65 6e 74 57 69 |nWindow(|ParentWi|
|00000500| 6e 64 6f 77 29 2e 4f 4b | 42 75 74 74 6f 6e 20 26 |ndow).OK|Button &|
|00000510| 26 20 45 20 3d 3d 20 44 | 45 5f 43 6c 69 63 6b 29 |& E == D|E_Click)|
|00000520| 29 0d 0a 09 09 4f 70 65 | 6e 55 52 4c 28 29 3b 0d |)....Ope|nURL();.|
|00000530| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 4f |.}....fu|nction O|
|00000540| 70 65 6e 55 52 4c 28 29 | 0d 0a 7b 0d 0a 09 6c 6f |penURL()|..{...lo|
|00000550| 63 61 6c 20 69 6e 74 20 | 69 3b 0d 0a 09 6c 6f 63 |cal int |i;...loc|
|00000560| 61 6c 20 62 6f 6f 6c 20 | 48 69 73 74 6f 72 79 49 |al bool |HistoryI|
|00000570| 74 65 6d 3b 0d 0a 09 6c | 6f 63 61 6c 20 55 57 69 |tem;...l|ocal UWi|
|00000580| 6e 64 6f 77 43 6f 6d 62 | 6f 4c 69 73 74 49 74 65 |ndowComb|oListIte|
|00000590| 6d 20 49 74 65 6d 3b 0d | 0a 09 6c 6f 63 61 6c 20 |m Item;.|..local |
|000005a0| 73 74 72 69 6e 67 20 55 | 52 4c 3b 0d 0a 0d 0a 09 |string U|RL;.....|
|000005b0| 55 52 4c 20 3d 20 4f 70 | 65 6e 43 6f 6d 62 6f 2e |URL = Op|enCombo.|
|000005c0| 47 65 74 56 61 6c 75 65 | 28 29 3b 0d 0a 09 69 66 |GetValue|();...if|
|000005d0| 28 55 52 4c 20 3d 3d 20 | 22 22 29 0d 0a 09 7b 0d |(URL == |"")...{.|
|000005e0| 0a 09 09 4f 70 65 6e 43 | 6f 6d 62 6f 2e 42 72 69 |...OpenC|ombo.Bri|
|000005f0| 6e 67 54 6f 46 72 6f 6e | 74 28 29 3b 0d 0a 09 09 |ngToFron|t();....|
|00000600| 72 65 74 75 72 6e 3b 0d | 0a 09 7d 0d 0a 09 0d 0a |return;.|..}.....|
|00000610| 09 66 6f 72 20 28 69 3d | 30 3b 20 69 3c 31 30 3b |.for (i=|0; i<10;|
|00000620| 20 69 2b 2b 29 0d 0a 09 | 7b 0d 0a 09 09 69 66 20 | i++)...|{....if |
|00000630| 28 4f 70 65 6e 48 69 73 | 74 6f 72 79 5b 69 5d 20 |(OpenHis|tory[i] |
|00000640| 7e 3d 20 55 52 4c 29 0d | 0a 09 09 09 48 69 73 74 |~= URL).|....Hist|
|00000650| 6f 72 79 49 74 65 6d 20 | 3d 20 54 72 75 65 3b 0d |oryItem |= True;.|
|00000660| 0a 09 7d 0d 0a 09 69 66 | 20 28 21 48 69 73 74 6f |..}...if| (!Histo|
|00000670| 72 79 49 74 65 6d 29 0d | 0a 09 7b 0d 0a 09 09 4f |ryItem).|..{....O|
|00000680| 70 65 6e 43 6f 6d 62 6f | 2e 49 6e 73 65 72 74 49 |penCombo|.InsertI|
|00000690| 74 65 6d 28 55 52 4c 29 | 3b 0d 0a 09 09 77 68 69 |tem(URL)|;....whi|
|000006a0| 6c 65 28 4f 70 65 6e 43 | 6f 6d 62 6f 2e 4c 69 73 |le(OpenC|ombo.Lis|
|000006b0| 74 2e 49 74 65 6d 73 2e | 43 6f 75 6e 74 28 29 20 |t.Items.|Count() |
|000006c0| 3e 20 31 30 29 0d 0a 09 | 09 09 4f 70 65 6e 43 6f |> 10)...|..OpenCo|
|000006d0| 6d 62 6f 2e 4c 69 73 74 | 2e 49 74 65 6d 73 2e 4c |mbo.List|.Items.L|
|000006e0| 61 73 74 2e 52 65 6d 6f | 76 65 28 29 3b 0d 0a 0d |ast.Remo|ve();...|
|000006f0| 0a 09 09 49 74 65 6d 20 | 3d 20 55 57 69 6e 64 6f |...Item |= UWindo|
|00000700| 77 43 6f 6d 62 6f 4c 69 | 73 74 49 74 65 6d 28 4f |wComboLi|stItem(O|
|00000710| 70 65 6e 43 6f 6d 62 6f | 2e 4c 69 73 74 2e 49 74 |penCombo|.List.It|
|00000720| 65 6d 73 2e 4e 65 78 74 | 29 3b 0d 0a 09 09 66 6f |ems.Next|);....fo|
|00000730| 72 20 28 69 3d 30 3b 20 | 69 3c 31 30 3b 20 69 2b |r (i=0; |i<10; i+|
|00000740| 2b 29 0d 0a 09 09 7b 0d | 0a 09 09 09 69 66 28 49 |+)....{.|....if(I|
|00000750| 74 65 6d 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 09 |tem != N|one)....|
|00000760| 09 7b 0d 0a 09 09 09 09 | 4f 70 65 6e 48 69 73 74 |.{......|OpenHist|
|00000770| 6f 72 79 5b 69 5d 20 3d | 20 49 74 65 6d 2e 56 61 |ory[i] =| Item.Va|
|00000780| 6c 75 65 3b 0d 0a 09 09 | 09 09 49 74 65 6d 20 3d |lue;....|..Item =|
|00000790| 20 55 57 69 6e 64 6f 77 | 43 6f 6d 62 6f 4c 69 73 | UWindow|ComboLis|
|000007a0| 74 49 74 65 6d 28 49 74 | 65 6d 2e 4e 65 78 74 29 |tItem(It|em.Next)|
|000007b0| 3b 0d 0a 09 09 09 7d 0d | 0a 09 09 09 65 6c 73 65 |;.....}.|....else|
|000007c0| 0d 0a 09 09 09 09 4f 70 | 65 6e 48 69 73 74 6f 72 |......Op|enHistor|
|000007d0| 79 5b 69 5d 20 3d 20 22 | 22 3b 0d 0a 09 09 7d 09 |y[i] = "|";....}.|
|000007e0| 09 09 0d 0a 09 7d 0d 0a | 09 53 61 76 65 43 6f 6e |.....}..|.SaveCon|
|000007f0| 66 69 67 28 29 3b 0d 0a | 0d 0a 09 4f 70 65 6e 43 |fig();..|...OpenC|
|00000800| 6f 6d 62 6f 2e 43 6c 65 | 61 72 56 61 6c 75 65 28 |ombo.Cle|arValue(|
|00000810| 29 3b 0d 0a 09 47 65 74 | 50 61 72 65 6e 74 28 63 |);...Get|Parent(c|
|00000820| 6c 61 73 73 27 55 57 69 | 6e 64 6f 77 46 72 61 6d |lass'UWi|ndowFram|
|00000830| 65 64 57 69 6e 64 6f 77 | 27 29 2e 43 6c 6f 73 65 |edWindow|').Close|
|00000840| 28 29 3b 0d 0a 09 55 42 | 72 6f 77 73 65 72 4d 61 |();...UB|rowserMa|
|00000850| 69 6e 57 69 6e 64 6f 77 | 28 50 61 72 65 6e 74 57 |inWindow|(ParentW|
|00000860| 69 6e 64 6f 77 2e 4f 77 | 6e 65 72 57 69 6e 64 6f |indow.Ow|nerWindo|
|00000870| 77 29 2e 4f 70 65 6e 55 | 52 4c 28 55 52 4c 29 3b |w).OpenU|RL(URL);|
|00000880| 0d 0a 7d 0d 0a 0d 0a 00 |                         |..}.....|        |
+--------+-------------------------+-------------------------+--------+--------+